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ABSTRACT 

This  document  presents  documentation  necessary  to  use 
the.  System  Cost  Reliability  Analysis  Program  (SCRAP).  This 
program,  developed  by  OOAMA/MMERR,  was  established  to 
realistically  determine,  in  real  time,  the  Total  Annual  Logistic 
cost  of  an  aircraft  weapon  subsystem  or  system  and  to  perform 
cost  sensitivity  analyses  on  these  weapon  subsystems  or 
s  ys  terns . 
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1.0  BACKGROUND 

One  of  the  most  complex  areas  of  endeavor  within  the  Air 
Force  Logistic  Command  (AFLC)  is  to  reduce  the  total  recurring 
annual  logistic  cost  of  a  weapon  system  (the  cost  to  operate 
and  support  a  weapon  system).  It  is  the  purpose  of  this 
document  to  show  how  existing  maintenance,  failure,  and  cost 
data  available  within  the  Air  Force  can  be  used  to  formulate  a 
realistic  method  to  determine  total  recurring  annual  logistic 
cost.  Then,  the  document  will  show  how  this  method  can  be 
used  to  determine  high  cost  areas  within  a  weapon  system,  and 
how  the  method  may  be  used  to  determine  whether  a  proposed 
modification  to  a  weapon  system  is  economically  sound.  Finally, 
the  document  will  present  details  on  how  to  work  with  the  SCRAP 
and  SORT SUM  computer  programs. 
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2.0  BACKGROUND 

Prior  to  the  detemination  of  which  weapon  system  areas 
are  the  most  costly  and  whether  a  modification  to  a  weapon  system 
is  economically  sound,  a  complete  cost  analysis  must  be  performed 
to  determine  present  total  recurring  annual  logistic  cost  of  the 
weapon  system  in  question.  Determination  of  total  recurring  annual 
logistic  cost  would  then  result  in  performing  a  cost  of  ownership 
(annual  logistic  cost)  analysis  and  a  cost  sensitivity  analysis 
of  a  weapon  system. 

It  is  apparent  that  in  order  to  perform  a  cost  analysis 
of  a  large,  complex  weapon  system,  a  great  deal  of  data  must  be 
available.  Within  the  Air  Force  Logistic  Command  such  data  does 
exist  in  the  AFM  66-1  data  system.  The  time  taken  to  repair  an 
item  in  the  field,  MTBF  (Mean-Time-Between-Failure) ,  cost  of  material 
per  repair,  and  many  other  data  items  are  also  available  from  the 
AFM  66-1  data  system. 

Every  weapon  system  is  divided  into  subsystems.  These 
subsystems  are  further  reduced  to  the  LRU  (Line  Replaceable 
Unit)  level.  For  example,  the  F-4C  fighter  aircraft  is  con¬ 
sidered  a  weapon  system;  items  such  as  the  engine,  navigation 
equipment,  and  radar  are  considered  subsystems;  and  items  such 
as  the  antenna  of  a  radar  are  considered  LRU’s.  Tims,  a  weapon 
system  may  be  made  up  of  thousands  of  subsystems  and  LRU’s.  To 
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insure  that  the  data  kept  for  each  subsystem  and  LRU  is  easily 
accessible,  numbers  arc  attached  to  each  subsystem,  LRU,  or 
major  part  of  a  LRU.  For  example,  the  jet  engine  has  the  number 
23000;  the  ejector  nozzle  assembly,  a  LRU  of  the  engine,  has 
the  number  23530;  and  the  nozzle  itself,  a  part  of  the  ejector 
nozzle  assembly,  has  the  number  2353A  attached  to  it.  These 
numbers  are  referred  to  as  Work  Unit  Codes  (WUC).  Some  of  the 
AFM  66-1  data  is  organized  by  means  of  these  WUC"s.  Data  such 
as  manhours  expended  to  adjust,  overhaul,  clean  a  LRU,  is  listed 
under  a  WUC  within  the  AFM  66-1  data  system. 

In  addition  to  the  AFM  66-1  data  system,  depot  data 
exists  in  the  L0G-K65  of  the  G072A  data  system.  This  is  an 
AFLC  data  system  which  contains  depot  information  such  as 
time  required  to  overhaul  a  particular  LRU,  cost  of  parts 
replaced,  number  of  LRU's  condemned  at  the  depot,  and  cost 
per  manhour  of  overhaul.  Additionally,  data  such  as  the  cost 
of  the  subsystem  or  LRU,  the  number  of  items  in  the  inventory, 
the  number  of  parts,  exists  within  the  Air  Force--in  other 
words,  the  physical  parameters  of  the  weapon  system  in  question. 

Adequate  raw  data  does  exist  to  conceivably  perform  a  cost 
analysis.  Within  the  AFLC  "library"  also  exists  a  document 
called  AFLCM  66-18.  In  Chapter  15  (Cost  Analysis  -  AFLC  Increase 
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Reliability  o£  Operational  Systems  (XROS)  Program)  of  this  manual, 
equations  are  presented  which,  when  implemented ,  will  result  in 
total  recurring  annual  logistic  cost.  Thirty-eight  parameters 
are  required  to  implement  the  equations  listed  in  Chapter  15. 

It  is  the  intent  of  the  next  section  to  show  how  the 
existing  raw  data  and  the  basic  equations  of  AFLCM  66-18, 

Chapter  15,  are  used  to  provide  a  means  of  determining  the 
total  recurring  annual  logistic  cost  for  a  weapon  system,  and 
a  breakout  of  the  cost  into  its  relevant  categories 
(e.g.,  labor,  material,  etc.). 
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3.0  TOTAL  RECURRING  ANNUAL  LOGISTIC  COST  BASELINE 

Prior  to  making  any  decisions  with  regard  to  total 
recurring  annual  logistic  cost,  an  annual  logistic  cost  baseline 
must  be  determined.  To  establish  this  baseline,  the  data  in 
AFM  66“ 1,  G072A,  and  the  basic  equations  in  AFLCM  66-18  raust 
be  used.  To  integrate  the  raw  data  with  the  equations  of 
AFLCM  66-18,  a  computer  program  called  System  Cost  Reliability 
Analysis  Program  (SCRAP)  was  written.  There  are  31  variables 
required  to  drive  the  cost  program  SCRAP.  (See  Appendix  A 
for  a  listing  of  the  31  variables.)  It  should  be  noted  that 
some  of  the  variables  shown  in  AFLCM  66-18  are  actually 
constants  and  thus  included  in  the  program  body.  The  first  six 
pertain  to  on-weapon  system  actions;  the  next  nine  pertain  to 
base  shop  actions ;  and  the  last  eleven  provide  general  informa¬ 
tion  required  for  cost  computation.  Variable  A(X5) ,  Base 
Material  Cost  Standard  for  Non-Failure  Maintenance,  is  assumed 
to  be  zero  in  many  cases  since  data  frcm  the  field,  to  even 
approximate  this  standard,  is  usually  not  available.  It  should 
be  noted  that  variable  A(20)  is  a  decision  factor  for  handling 
the  situation  of  two  labor  standards  existing  in  the  depot — one 
for  condemnation,  one  for  overhaul — and  is  therefore  not  a  true 
data  element. 
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The  first  fourteen  variables  are  generated  from  AFM  66-1  data; 
the  depot  data,  variables  A(16)  -  A (21),  cooes  from  the  LOG  K65 
of  the  G072A  system  (a  depot  data  management  system);  and  the 
last  eleven  variables  are  provided  by  the  respective  item  and 
system  managers. 

In  the  writing  of  the  computer  program,  it  is  assumed 
that  maintenance  is  accomplished  on  these  levels:  on-weapon  system 
(on  equipment),  base-shop  (off-equipment),  and  depot  overhaul.  A 
flow  diagram  outlining  the  different  maintenance  accomplished 
at  each  level  and  the  interconnection  of  levels  is  given  in  Fig  1. 

The  following  abbreviations  are  used  in  Fig.  1.  NRTS  -  not  reparable 
this  station,  MMHs  -  maintenance  manhours,  ACFT  -  aircraft,  equip  - 
equipment,  hrs  -  hours,  Mai  -  malfunction. 

The  respective  variables  (A(l)  -  A(13),  A(17)  -  A(20))  apply¬ 
ing  to  each  block  are  also  included  on  the  diagram.  These  are 
the  variables  used  in  the  computer  program.  The  definitions 
dictating  which  AFM  66-1  data  elements  apply  to  each  block  are  given 
in  Appendix  B.  These  definitions  are  based  on  the  criteria  set 
forth  in  AFLCM  66-18,  Chapter  15,  and  on  the  individual  definition 
of  each,  as  defined  in  the  technical  manuals.  The  depot  rates  and 
standards  come  directly  from  depot  data  products  and  are  not  derived 
from  AFM  66-1  data.  The  different  rates  (A(2) ,  A(7),  etc.)  denote 
the  percentage  of  action  accomplished  in  that  block.  The  rates  are 
derived  by  taking  the  ratio  of  the  number  of  actions  accomplished  in 
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a  particular  block  to  the  total  actions  accomplished  at  that 
maintenance  level.  The  labor  standard  for  each  block  is  derived 
by  taking  the  ratio  of  maintenance  manhours  reported  to  the  number 
of  actions  reported  for  each  block.  This  indicates  the  average 
manhours  expended  per  action  for  that  particular  block. 

The  cost  of  material  expended  per  repair  action  at  the 
depot,  A(16),  is  reported  directly  in  the  LOG  K65  data  product.  The 
material  cost  per  repair  action  at  the  base  shop  A(14),  is  not 
reported  directly.  An  estimate  of  the  material  cost  at  the  base 
shop  was  made  by  taking  the  total  cost  of  the  bits  and  pieces 
reported  as  being  replaced  in  the  AFM  66-1  data  and  dividing  by 
the  number  of  repair  actions.  This  gives  an  average  material  cost 
per  repair  action  at  the  base  shop. 

The  basic  differences  between  the  SCRAP  computer  program 
and  the  equations  in  AFLCM  66-18  lie  in  the  definition  of  failure 
and  in  the  breakout  of  maintenance  repair  areas,  AFLCM  66-18 
defines  a  failure  as  type  1  How  Malfunction  Code  with  only  F,  P 
and  R  actions  and  only  P  and  R  actions  not  followed  by  a  B  action 
Code  in  the  base  shop.  (See  Appendix  B  for  definitions  of  actions 
and  How  Mai  codes.)  The  SCRAP  program  defines  a  failure  as 
type  1  or  2  How  Mai  Codes  with  action  codes  F,  G,  K,  L,  P,  R  and 
Z.  It  simply  makes  sense  to  call  a  required  adjustment  a  failure 
if  the  mission  must  be  scrapped  because  of  this  maladjustment. 
Additionally,  AFLCM  66-18  assumes  that  all  failures  result  in  a 
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removal  of  the  item  from  the  weapon  system.  This  contradicts 
their  definition  of  failure  since  rn  F  action  cotie  denotes  on 
equipment  (weapon  system)  repair.  The  SCRAP  program  allows  for 
the  fact  that  some  repair  actions  are  accomplished  on  the  weapon 
system.  lastly,  the  AFLC.M  66-18  equations  group  all  base  shop 
data  together  to  give  one  labor  standard  for  repair.  The  SCRAP 
program  breaks  out  this  data,  which  enables  the  sensitivity  of 
all  various  actions  to  be  determined.  A  detailed  procedure  of 
how  to  enter  data  and  a  listing  of  the  SCRAP  program  is  contained 
in  Appendix  C.  The  program  incorporates  the  modified  equations  of 
AFLCM  66-18,  as  previously  mentioned,  (lines  1060  -  1360),  plus 
other  features  which  allow  a  cost  sensitivity  analysis  to  be  per 
formed.  The  program  is  written  in  FORTRAN  IV  computer  language. 

To  drive  the  program,  the  previously  mentioned  31  variables  must 
be  entered.  To  find  variables  A(l)  -  A(14)  calculations  are  re¬ 
quired.  The  program  allows  raw  data  to  be  fed  to  it  and  it  will 
calculate  A(l)  through  A(14),  lines  150  -  570  of  the  program,  there¬ 
by  simplifying  the.  cost  analysis.  The  maw  data  items  (denoted  by 
S(l)  through  S(23))  used  to  calculate  A(l)  through  A(14)  are 
listed  in  Fig  2.  Fig  2  also  shows  from  which  data  products  S (1) 
through  S(23)  are  obtained. 

Once  S(l)  through  S(23)  and  A (15)  through  A(31)  are  entered, 
a  resultant  cost  analysis  will  be  performed.  If  more  than  one  run 
is  anticipated  of  any  given  work  unit  code,  and  if  A(l)  through 
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FIG.  2  -  BASE  SHOP  DATA 


From  3-LOG--K261  (AFM  66-1) 

S(I)  =  Type  1  &  2,  S  Actions 

S (2)  =  Type  I  &  2,  S  MMHs 

S  (3)  =>  Type  1  A  2,  V+Y  ffcO-Ls 

S (4)  *  Type  1  fit  2,  P  Actions 

S (5)  =  Type  1  &  2,  R  Actions 

S (6)  =  Type  1  &  2,  P&R  MMHs 

S (7)  =  Type  1  &  2,  True  Actions  Summary 

S (8)  *  Type  1  &  2 ,  True  MMHs  Summary 

S (9)  B  Total  MMHs  Sunmary 

From  4-L0G-K261  (for  all  types  AFM  66-1^ 

S(10)  -  V  MMHs 
S(ll)  =  Z  Actions 
S  (12)  =  Z  MMHs 
S (13)  =  9  MMHs 

From  5-LOG-K261  (for  all  types  AFM  66-1') 

S(14)  -  AFG,  Repair  +  KL,  Adjustment  Actions 

S(15)  “  AFG,  Repair  +  KL,  Adjust  +  CDMN,  Delayed  MMHs 

S (16)  -  1  -  8,  NRTS  Actions 

S (17)  =>1-8,  NRTS  and  9,  Condemned  MMHs 

S(18)  •*  9,  Condemned  Actions 

S(19)  =  BJ  +  VXZ,  Clean/Test/Corrosion  Actions 
S(20)  =  BJ  +  VXZ,  Clean/Test/Corrosion  MMHs 
S(21)  *»  Total  Cost  of  Parts  replaced 
S(22)  ®  Type  1,  2  and  6,  Q  Actions 
S(23)  =  Type  1,  2,  and  6  Q  MMHs 
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A(14)  have  been  previously  calculated,  it  is  possible  to  enter 
A(l)  through  A(31)  and  obtain  the  same  results.  Sample  printouts 
from  the  program  are  shown  in  Appendix  D.  The  top  portion  shows 
data  entry  and  a  printout  of  the  calculated  variables  A(l)  through 
A(14),  Page  D-l.  These  variables  deal  with  on-weapon  system 
actions  and  base  (field)  shop  maintenance  actions.  Page  D-2 
provides  a  printout  of  the  program  results  based  on  the  previously 
calculated  variables  plus  the  remaining  eighteen  variables 
required  to  complete  the  data  (Appendix  A). 

As  previously  mentioned,  a  sensitivity  analysis  is  also  an 
option  to  the  SCRAP  program.  A  sample  of  the  printout  from  A 
sensitivity  analysis  is  shown  in  Appendix  D,  page  D-3. 

Operation  of  the  analysis  involves  entering  (1)  number  of 
variables  to  be  changed,  (2)  which  variables  these  are,  and  (3) 
percentage  of  change  desired.  Only  the  number  of  the  variable  has 
to  be  entered;  i.e.,  for  A(l)  enter  1.  The  program  is  keyed  to 
reductionsof  that  variable  by  the  percentage  entered.  If  a  negative 
percentage  (i.e.,  -10)  is  entered,  the  variable  is  increased  by 
that  percentage.  The  only  exception  is  when  a  change  to  a  labor 
or  other  rate  is  desired.  In  this  case  the  value  of  the  new  rate 
must  be  entered.  The  program  then  calculates  the  new  total  recurring 
annual  logistic  cost  (TALC),  the  resulting  amount  of  reduction  in 
TALC,  and  the  percentage  reduction  in  TALC.  (See  Appendix  D, 

Page  D-2  for  an  example.) 
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The  next  sections  will  cover  what  applications  are  possible 


using  this  method  of  obtaining  total  recurring  annual  logistic 
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4.0  THE  HIGH  COST  AREAS  OF  A  WEAPON  SYSTEM 

In  the  previous  section,  3.0,  a  method  for  determining  a 
baseline  for  total  recurring  annual  logistic  cost  was  developed. 
Assuming  that  a  baseline  for  several  WUC’s  was  calculated,  it  will 
be  shown  how  the  high  cost  areas  of  a  weapon  system  or  subsystem 
are  determined. 

Perhaps  the  most  obvious  way  to  approach  this  is  to  take 
all  the  total  recurring  annual  logistic  costs  calculated  by 
SCRAP  and  rank  them  by  decreasing  cost.  Subsequent  to  ranking 
this  total  recurring  annual  logistic  cost,  a  cumulative  sum 
and  percentage  should  be  taken.  This  is  necessary  to  find  the 
high  cost  items.  For  example,  after  ranking  and  calculating  the 
cumulative  percentages,  it  is  found  that  three  or  four  out  of 
perhaps  twenty  items  comprise  95%  of  the  total  recurring  annual 
logistic  cost,  it  would  be  advantageous  to  expend  engineering 
effort  and  money  on  those  three  or  four  items  rather  than  the 
rest. 

These  calculations  may  be  handled  manually,  but  for  larger 
systems  it  becomes  imperative  to  use  a  computer  program  to  handle 
the  calculations.  A  computer  program  was  written  to  rank  the  total 
recurring  annual  logistic  cost  calculated  by  SCRAP.  The  program 
called  "SORTSUM",  ranks  cost  in  decreasing  order  or  increasing 
order.  The  program  also  prints  out  the  WUC  associated  with  a 
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given  total  recurring  annual  logistic  cost,  and  the  cumulative 
sums  and  percentages.  For  a  detailed  instruction  of  using  the 
program  and  listing  of  the  program  see  Appendix  E,  pages  E-l 
to  E-4. 

Thus,  high  cost  areas  of  a  weapon  system  can  be  readily  deter¬ 
mined  by  first  finding  the  baseline  cost  data  using  SCRAP  and 
the  using  SORTSUM  to  rank  these  costs.  A  sample  printout  of 
the  ranking  is  given  in  Appendix  E,  Page  E-4.  SORTSUM  may  also 
be  used  to  rank  failures,  manhours,  or  any  other  factors  associated 
with  total  recurring  annual  logistic  cost.  The  sample  printout, 
page  E-4  shows  that  failures  as  well  as  costs  are  ranked.  The 
capability  to  do  this  is  another  useful  tool  in  the  determina¬ 
tion  of  high  cost  areas.  In  the  sample  printout  it  should  be 
noted  that  the  first  item  c£  the  seven  listed  comprises  98.147.  of 
the  total  cost,  yet  only  33.537.  of  the  total  failures.  Consequently, 
it  can  be  concluded  that  the  cost  per  failure  of  the  23000  WUC 
is  proportionally  higher  than  the  other  WUC*s.  Thus,  a  reduction 
in  failure  of  that  WUC  would  result  in  the  greatest  savings. 

The  value  of  knowing  total  recurring  annual  logistic  and 
the  top  high  cost  items  now  becomes  apparent.  Any  endeavor 
in  engineering  requiring  changes  to  a  weapon  system  should  not 
be  undertaken  unless  a  detailed  cost  analysis  is  performed. 
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5.0  THE  COST  EFFECTIVENESS  OF  AN  ECP  (ENGINEERING  CHANGE  PROPOSALS 

One  of  the  areas  stressed  in  section  3.0  was  the  capability  of 
SCRAP  to  perform  a  sensitivity  analysis  on  any  variable  in  the 
program;  that  is,  an  analysis  showing  the  amount  of  change  in 
total  recurring  annual  logistic  cost  due  to  a  change  in  one  of 
the  variables  making  up  annual  logistic  cost.  This  capability 
lends  itself  to  the  evaluation  of  an  ECP  (Engineering  Change 
Proposal) . 

Often  ECP's  are  accepted  or  bought  because  they  sound 
appealing.  But,  are  they  economically  sound?  Without  a  program 
like  SCRAP  it  is  rather  difficult  to  assess  the  financial  worth 
of  an  ECP. 

Prior  to  making  any  decision  on  the  worth  of  an  ECP,  the 
methods  formulated  in  section  3.0  must  be  used  to  find  the  baseline 
annual  logistic  data.  Then  the  manufacturer's  proposal  must  be 
evaluated  to  pin  down  which  area  of  the  ECP  is  to  be  improved,  how 
it  is  to  be  improved  (i.e.,  reduction  in  maintenance  manhours, 
reduction  in  failures) ,  and  by  how  much  each  area  may  be  improved. 
Having  established  an  annual  logistic  cost  baseline  and  quantified 
the  proposed  modification,  it  is  now  possible  to  enter  the  amount 
of  reduction  the  proposed  modification  calls  for  on  any  given 
variable.  This  is  done  to  every  variable  for  which  reductions 
are  claimed  within  a  WUC.  It  is  also  done  to  every  WUC  affected 
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by  the  modification.  A  new  resultant  annual  logistic  cost 
will  be  found  for  the  system  in  question,  and  the  savings 
realized  will  also  be  found* 

This  savings  can  then  be  compared  to  the  total  cost  of  the 
modification,  and  a  judgment  can  be  made  as  to  the  worth  of  the 
ECP.  •  For  example,  if  the  manufacturer  claims  a  reduction  in 
failures  of  10%,  a  reduction  of  10%  on  variable  A(l)  is  entered 
into  the  sensitivity  analysis.  The  sample  analysis  of  WUC  23000, 
Appendix  D,  page  D-3  above  that  reducing  A(l)  by  10%  results  in  a 
savings  of  $1,818,125.  It  is  now  possible  to  weigh  the  cost  of 
the  modification  against  the  predicted  savings.  If  the  amortiza¬ 
tion  time  is  acceptable  the  ECP  should  be  accepted, 

The  sensitivity  analysis  also  shows  that  the  10%  reduction  in 
failures  of  the  23000  WUC  results  in  savings  of  9.23%.,  or  almost 
all  the  cost  is  associated  with  failures.  This  is  not  always  the 
case.  The  sample  analysis  of  WUC  2361b,  Appendix  D,  page  D~5  shows 
that  a  50%  reduction  in  failures  yields  only  a  22%  savings  in 
total  annual  logistic  cost.  Therefore  without  SCRAP,  it  is 
difficult  to  evaluate,  realistically  and  in  real  time,  an  ECP 
from  an  economic  standpoint. 
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6.0  CONCLUSION 

The  uncertainties  in  the  determination  of  the  total  recurring 
annual  logistic  cost  can  be  greatly  reduced  by  using  the  procedures 
developed  in  section  3.0.  Therefore,  guessing  at  this  cost  will 
no  longer  be  necessary.  This  report  has  shown  how  existing 
maintenance,  failure,  and  cost  data  available  within  the  Air 
Force  can  be  used  to  determine  annual  logistic  cost.  It  was 
then  shown  how  the  method  developed  in  section  4.0  can  be  used 
to  determine  high  cost  areas  of  a  weapor  system.  This  is 
extremely  important  in  allocating  time  and  money  to  improve  the 
appropriate  portion  of  the  weapon  system;  because,  little  is 
gained  by  expending  engineering  time  and  money  on  a  low  cost 
portion  of  a  weapon  system.  Lastly,  section  5.0  shows  how  it 
is  possible  to  use  SCRAP  to  determine  whether  a  proposed  modifica¬ 
tion  to  a  weapon  system  is  economically  sound.  A  complete  cost 
analysis  done  by  the  methods  developed  in  this  veport  provides  an 
invaluable  data  base  to  be  used  in  future  decisions  dealing  with 
modifications  or  the  operating  cost  of  a  weapon  system.  With 
this  data  base  and  SCRAP,  sensitivity  analyses  are  possible 
at  any  time,  in  real  time,  reducing  the  unknowns  present  in 
making  a  decision  on  the  economics  of  engineering  and  management 
problems  of  a  weapon  system. 
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APPENDIX  A 


A(D 

A(2> 

A(3) 

A(4) 

A(5) 

A  (6) 

A(7) 

A  (8) 

A(9) 

A  (10) 

A(ll) 

A(12) 

A<13) 

A(U) 

A(15) 

A(16) 

A(17) 

A(18> 

A(19) 

A(20) 

A(21) 
A(22) 
A(23) 
A  (24) 
A(25) 
A  (2  6) 
A  (2  7) 
A  (28) 
A(29) 
A  (30) 
A  (31) 


SCRAP  PROGRAM  VARIABLES 

Total  Failures 
On-Aircraft  Repair  Rate 
On-Aircraft  Repair  Labor  Standard 
Remove  and  Replace  Rate 
Remove  and  Replace  Labor  Standard 
Non-Failure  MMHs  (On-Equiptnent) 

Base  Shop  Repair  Rate 

Base  Shop  Repair  Labor  Standard 

Base  Shop  NKTS  Rate 

Base  Shop  NRTS  Labor  Standard 

Base  Shop  Condemnation  Rate 

Base  Shop  Condemnation  Labor  Standard 

Base  Shop  Non-Failure  MMHs 

Base  Mat'l  Cost  Standard  for  Repair  ($/repair) 

Base  Mat'l  Cost  Standard  for  Non-Failure  Maintenance  ($/hour) 
Depot  Mat’l  Cost  Standad  for  Repair 
Depot  Condemnation  Rate 

Depot  Condemnation  Labor  Standard  (hrs/cond  action) 

Depot  Repair  Labor  Standard  (hrs/repair  action) 

Decision  Factor  (equals  0  when  Repair  -  Condemned  hrs  in 
one  std;  1  otherwise) 

Percent  Condemned  Items  to  be  Reprocured 
Total  Annual  Flying  Hours 
Weight  (lbs) 

Percent  Aircraft  Conus 
Percent  Aircraft  Overseas 
Number  of  Items  Managed 
Standard  Unit  Cost  of  Item 
Salvage  Value  ($/lb) 

Number  of  Stock  Listed  Parts  and  Subassemblies 
Number  of  Applicable  T.O.  pages 
Other  Significant  Recurring  Costs 
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APPENDIX  B 
SCRAP  PROGRAM 
AFM  66-1  DATA  DEFINITION 


Noun 


(Base  "On-Equip.  '  3/5-Log-K261) 

Total  Failures 

On-Aircraft  Repair  Actions 

On- Aircraft  Repair  MMHs 

Detect,  Isolate,  Remove,  Replace 
Actions 

Detect, Isolate,  Remove,  Replace 
MMHs 

Non-Failure  MMHs 

(Base  "Off-Equi  4/5-Log-K261) 
Shop  Repair  Actions 
Shop  Repair  MMHs 

Shop  NRTS  Actions 
Shop  NRTS  MMHs 
Shop  Condemnation  Actions 
Shop  Condemnation  MMHs 
Shop  Non-Failure  Actions 
Shop  Non-Failure  MMHs 


How  Mai.  Tyne 


Action  Cpdes 


1  &  2 

F,G,K,L,P,R,Z 

1  &  2 

F,G,K,L,Z 

14  2 

F,G,K,L,Z,V,Y 

14  2 

P,R 

14  2 

P,R,Q 

1,2 

E,H,J,S,T,U,X 

and  6 

All  Codes 

N/A 

A,F,G,K,L,Z 

N/A 

A,F,G,K,L,Z,C,D 

M,N,V 

N/A 

1,2, 3, 4, 5, 6, 7, 8 

N/A 

1,2, 3,4, 5, 6, 7, 8 

N/A 

9 

N/A 

9 

N/A 

B,J,X 

N/A 

B,  J,X 
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ACTION  TAKEN  CODES 

A  -  Bench  Checked  and  Repaired.  Bench  check  and  repair  of  any 

one  item  is  accomplished  at  the  same  time-  (Also  see  Code  F.) 

B  -  Bench  Checked-Serviceable.  (No  repair  required)-  Item  is 
bench  checked  and  no  repair  required. 

C  -  Bench  Checked-Repair  Deferred.  Bench  check  is  accomplished 
and  repair  action  is  deferred.  (See  Code  F.) 

D  -  Bench  Cheeked-Transferred  to  Another  Base  or  Unit.  Item 
is  bench  checked  at  a  forward  operating  base,  dispersed 
operating  base  or  enroute  base  and  is  found  unserviceable 
and  transferred  to  a  main  operating  base  or  home  base  for 
repair.  This  code  will  not  be  used  for  items  returned  to 
a  depot  for  overhaul.  This  code  will  also  be  used  when  PME 
or  other  equipment  is  sent  to  another  base  or  unit  for  bench 
check,  calibration,  or  repair  and  is  to  be  returned.,  and  for 
items  forwarded  to  contractors  on  base  level  contracts. 

E  -  Initial  Installation.  For  installation  actions  that  are 

not  related  to  a  previous  removal  action  such  as  installation 
of  additional  equipment  or  installation  of  an  item  to  remedy 
a  ship-short  condition.  This  code  will  be  used  only  for 
equipment  managed  under  the  advanced  configuration  management 
system.  Reference  T.O.'s  00-20-2-3,  00-20-2-5,  and  00-20-2-7 
must  be  used  with  How  Mai  Code  799. 

F  -  Repair.  Not  to  be  used  to  code  "on-equipment"  work  if  another 
code  will  apply.  When  it  is  used  in  a  shop  environment,  this 
code  will  denote  repair  as  a  separate  unit  of  work  after  a 
bench  check.  Shop  repair  includes  the  total  repair  manhours 
and  includes  cleaning,  disassembly,  inspection,  adjustment 
reassembly  and  lubrication  of  minor  components  incident  to 
the  repair  when  these  services  are  performed  by  the  same  work 
center.  For  precision  measurements  equipment,  this  code  will 
be  used  only  when  calibration  of  the  repaired  item  is  required 
(See  Code  G) . 
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G  -  KePSir.-.4adi<>X-Ji£g.lac£SBeiit  of  Hi.no  r  Parcs  .  Hardware  and 
Softgoods.  (Seals,  gaskets,  electrical  connectors, 
fittings,  tubing,  hose,  wiring,  fasteners,  vibration 
isolators,  brackets,  etc.)  Work  Unit  Codes  do  not  cover 
most  non- repairable  items;  therefore,  when  items  such  as 
those  identified  above  are  repaired  or  replaced,  this 
action  taken  code  will  be  used.  When  this  action  taken 
code  is  used,  the  Work  Unit  Code  will  identify  the  assembly 
being  serviced  or  most  directly  related  to  parts  being 
repaired  or  replaced.  For  example,  if  an  electrical 
connector  was  repaired  and  was  attached  to  a  radio  trans¬ 
mitter,  the  Work  Unit  Code  for  the  transmitter  would  be 
used  with  this  action  taken  code.  For  precision  measurement 
equipment,  this  code  will  be  used  for  repairs  that  do  not 
require  calibration  of  the  repaired  item  (see  Code  F) . 

H  -  Equipment  Ghecked-Wo  Repair  Required  (For  "On-Equipment11 

Work  Only) .  All  discrepancies  which  are  checked  and  found 
to  require  no  further  maintenance  action.  This  code  will 
be  used  only  if  it  is  definitely  determined  that  a  reported 
deficiency  does  not  exist  or  cannot  be  duplicated.  Must  be 
used  with  the  How  Mai  Code  799,  812  or  948, 

J  “  Calibration-Kg  Adjustment  Required.  Use  this  code  when  an 
item  is  calibrated  and  found  serviceable  without  need  for 
adjustment,  or  is  £o  nd  to  be  in  tolerance  but  is  adjusted 
merely  to  peak  or  maximize  the  reading.  If  the  item  requires 
adjustment  to  actually  meet  calibration  standards  or  to 
bring  in  toleran  ce,  use  Code  K. 

K  -  Calibrated-Adiustment  Required,  Item  must  be  adjusted  to 

bring  it  in  tolerance  or  meat  calibration  standards.  If  the 
item  was  repaired  or  needs  repair  in  addition  to  calibration 
and  adjustment,  use  Code  F. 

L  -  Ad  jus  t .  Includes  tighten,  adjust,  bleed,  balance,  rig,  and 
fit,  or  actuating  reset  button  or  switch.  A  particular 
discrepancy  is  cleared  by  adjusting,  etc.,  the  item.  If 
the  ideittified  component  also  requires  replacement  bits 
and  pieces  as  well  as  adjustment  (new  points,  condensers, 
tubes,  etc.),  enter  the  appropriate  repair  code  instead 
of  L. 

M  -  Disassemble.  Disassembly  action  when  the  complete  maintenance 
job  is  broken  into  parts  and  reported  as  such.  Do  not  use 
for  on-equipment  work. 
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Assemble-  Assembly  action  when  the  complete  maintenance 
job  is  broken  into  parts  and  reported  as  such.  Dc  not 
use  for  on-equipment  work 

Removed .  Item  is  removed  and  only  the  removal  is  to  be 
accounted  for.  In  this  instance  delayed  or  additional 
actions  will  be  accounted  for  separately.  (Also  see  Codes 
Q,  R,  S,  T.  AND  U.)  Do  not  use  for  of f-equipraent  work. 

Installed.  Item  is  installed  and  only  the  installation 
action  is  to  be  accounted  for.  (Also  see  Codes  E,  P,  R, 

S,  T,  and  U.)  Do  not  use  for  off-equipment  work. 

Remove  and  Replace.  Item  is  removed  and  another  like  item 
is  installed.  (Also  see  Codes  T  and  U.)  Do  not  use  for 
of f- equipment  work. 

Remove  and  Reinstall.  Item  is  removed  and  the  same  item 
reinstalled.  (Also  see  Codes  T  and  U.)  Do  not  use  for 
off-equipment  work.  Mist  be  used  for  How  Mai  Code  800. 

804 ,  or  805. 

Removed  for  Cannibalization.  A  componerc  is  cannibalized. 
The  Work  Unit  Code  will  identify  the  component  being 
cannibalized.  Do  not  use  this  code  for  off-equipment 
work.  Must  be  used  with  How  Mai  Code  799. 


Replaced  After  Cannibalization.  This  code  will  be  entered 
when  a  component  is  replaced  after  cannibalization.  Do  not 
use  this  code  for  off- equipment  work.  Must  be  used  with 
How  Mai  Code  749. 

Clean.  Cleaning  is  accomplished  to  correct  discrepanty 
and/or  cleaning  is  not  accounted  for  as  part  of  a 
repair  action  such  as  Code  F.  Includes  washing,  acid  bath, 
buffing,  and  blasting,  degreasing,  decontamination,  etc. 
Cleaning  and  washing  of  complete  items  such  as  ground 
equipment,  vehicles,  missiles  or  airplanes  should  be 
recorded  by  utilizing  support  general  codes. 

Test- Inspect. Ion-Service.  Item  is  tested  or  inspected  or 
serviced  (other  than  bench  check)  and  no  repair  is  required. 
This  code  does  not  include  Sfrvicing  or  inspection  chargeable 
to  support  general  Work  Unit  Codes. 
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Y  -  Troubleshoot.  Time  expended  in  locating  a  discrepancy 
is  great  enough  to  warrant  separating  the  troubleshoot 
time  from  the  repair  time.  Use  of  this  code  necessitates 
completion  of  two  separate  line  entries,  or  two  separate 
forms,  one  for  the  troubleshoot  phase  and  one  for  the 
repair  phase.  When  recording  the  troubleshoot  time  separate 
from  the  repair  time,  the  total  time  taken  to  isolate  the 
primary  cause  of  the  discrepancy  should  be  recorded 
utilizing  the  Work  Unit  Code  of  the  defective  subsystem 
or  system.  Do  not  use  for  off-equipment  work. 

2  -  Corrosion  Repair.  Includes  cleaning,  treating,  priming 
and  painting  of  corroded  items.  This  code  should  always 
be  used  when  actually  treating  corroded  items,  either  on 
equipment  or  in  the  shop.  The  Work  Unit  Code  should 
identify  the  item  that  is  corroded.  Use  support  general 
code  for  painting  or  corrosion  preventive  treatment  prior 
to  an  item  becoming  corroded. 

1  - 

Not  Authorized") .  Shop  is  not  authorized  to  accomplish 
the  repair.  This  code  shall  only  be  used  when  the  repair 
required  to  return  an  item  to  serviceable  status  is 
specifically  prohibited  by  current  technical  directives. 

This  code  shall  not  be  used  due  to  lack  of  authority  for 
equipment,  tools,  facilities,  skills,  parts  or  technical 
data. 


Bench  Checked-NRTS-Lack  of  Equipment.  Tools  or  Facilities. 
Repair  is  authorized  but  cannot  be  accomplished  due  to 
lack  of  equipment,  tools,  or  facilities.  This  code  shall 
be  used  without  regard  as  to  whether  the  equipment,  tools, 
or  facilities  are  authorized  or  unauthorized. 


Bench  Checked-NRTS-Lack  of  Technical  Skills.  Repair  cannot 
be  accomplished  due  to  lack  of  technically  qualified  people. 


Parts  are  not  available 


to  accomplish  repair. 


Bench  Checked-NRTS-Shop  Backlog.  Repair  cannot  be  accomplished 
due  to  excessive  shop  backlog. 


6  -  Bench  Checked-NRTS-Lack  of  Technical  Data.  Repair  cannot 

be  accomplished  due  to  lack  of  maintenance  manuals,  drawings, 
etc.,  which  describe  detailed  repair  procedures  and  requirement 
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7  -  Bench  Checked-NRTS-Excess  to  Base  Requirements,  Repair 

will  not  be  scheduled  for  shop  repair  due  to  item  being 
excess  to  base  requirements. 

8  -  Bench  Checked-Return  to  Depot.  Returned  to  depots  by 

direction  of  System  Manager  (SM)  or  Item  Manager  (IM). 

Use  only  when  items  that  are  authorized  for  base  level 
repair  are.  directed  to  be  returned  to  depot  facilities 
by  specific  written  or  verbal  communication  from  the  IM 
or  SM,  or  when  items  are  to  be  returned  to  depot  facilities 
for  modification  in  accordance  with  a  Time  Compliance 
Technical  Order  (TCTO) ,  or  as  UR  Exhibits. 

9  -  Bench  Checked-Condemned.  Item  cannot  be  repaired  and  is 

to  be  processed  for  condemnation,  reclamation  or  salvage. 

This  code  will  also  be  used  when  a  (condemned)  condition 
is  discovered  during  field  maintenance  disassembly  or  repair. 

HOW  MALFUNCTION  CODES 


Type  1  How  Malfunction  Codes  -  These  codes  indicate  that  the  item 
no  longer  can  meet  the  minimum  specified  performance  requirement  due 
to  its  own  internal  failure  pattern.  All  valid  how  malfunction  codes 
not  listed  under  types  2  of  6  below  are  considered  type  1. 

Type  2  How  Malfunction  Codes  -  These  codes  indicate  that  the 
item  no  longer  can  meet  the  minimum  specified  performance  requirement 
due  to  some  induced  condition  and  not  due  to  its  own  internal  failure 
pattern.  The  following  codes  apply: 

086  -  Improper  Handling 

092  -  Mismatched  -  Wheel  halves,  Electronic  Parts,  etc. 

105  -  Loose  or  Damaged  Bolts,  Nuts,  Screws,  etc. 

106  -  Missing  Bolts,  Nuts,  Screw,  etc. 

108  -  Broken,  Faulty,  or  Missing  Safety  Wire  or  Key 
158  -  Launch  Damage 
167  -  Torque  Incorrect 
230  -  Dirty 

246  -  Improper  or  Faulty  Maintenance 

301  -  Foreign  Object  Damage 

303  -  Bird  Strike  Damage 

447  -  Wrong  Logic 

518  -  Improper  Routing 

553  -  Does  Not  Meet  Specification,  Drawing,  or  Other 
Conformance  Requirements 
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602  Failed  or  Damaged  Due  to  Malfunction  of  Associated 
Equipment  or  Item 

638  -  Parameters  Activated 

639  -  Argon  Gas  Expended 

697  -  Faulty  Tape 

698  -  Faulty  Card 

709  -  Administrative  Condemnation 
731  -  Battle  Damage 

877  -  Transportation  Damage 

878  -  Weather  Damage 

931  -  Accidental  or  Inadvertent  Operation,  Release,  or 
Activation 

942  -  Illegal  Address 
948  -  Operator  Error 

Type  6  How  Malfunction  Codes  -  These  codes  indicate  maintenance 
resources  were  expended  due  to  policy  modification,  location,  or 
cannibalization  and  no  defect  existed  at  the  time  of  maintenance. 

The  following  codes  apply: 

632  -  Expended  (Thermal  battery,  fire  extinguisher,  etc.) 
793  -  No  Defect  -  TCTO  kit  received  by  base  supply  or 
parts  are  available  in  supply 

796  -  No  Defect  -  Removed  for  reliability  assessment 

797  -  No  Defect  -  Technical  order  previously  complied  with 

798  -  No  Defect  -  Technical  order  not  applicable  (equipment 

to  be  replaced,  modified,  or  not  installed) 

799  ~  No  Defect 

800  -  No  Defect  -  Component  removed/reinstalled  to 

facilitate  other  maintenance 

801  -  No  Defect  -  Technical  order  compliance 

802  -  No  Defect  -  Partial  technical  order  compliance 

803  -  No  Defect  -  Removed  for  time  change 

804  -  No  Defect  -  Removed  for  scheduled  maintenance 

805  -  No  Defect  -  Not  otherwise  coded 

812  -  No  Defect  -  Indicated  defect  caused  by  associated 

equipment  malfunction 
911  -  Engine  TCTO  correction  Code 
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APPENDIX  C 

Program  SCRAP  is  written  in  FORTRANS  IV  Computer  language.  The 
program  is  stored  in  the  USAF/AFLC  CREATE  time  share  computer  system. 
Therefore,  this  program  may  be  accessed  from  any  CREATE  terminal  by  using 
the  following  program  nomenclature: 

OLD  CRYSTAL/SCRAP,  R 

Once  the  computer  program  is  accessed  and  the  command  "RUN"  is  given, 
the  program  will  request  the  information  required  to  make  cost  analysis 
possible.  First,  the  program  asks  whether  a  complete  printout  is  desired. 

If  the  answer  is  "yes"  (NOTE:  Simply  enter  "Y"  for  "yes"  and  "N"  for  "no"), 
a  printout  as  shown  on  page  D-l  results.  If  "No",  a  printout  as  shown 
on  page  D-4  results.  The  various  variables  C01,  C02,  etc.  listed  in  the 
abbreviated  printout  on  pa,°;e  D-4  correspond  to  the  equations,  lines 
1060  to  1360  in  the  program. 

Next,  the  program  asks  whether  A(l)  through  A(14)  are  available. 

A  "yes"  or  "no"  (Y  or  N)  answer  is  required.  Then  the  program  asks 
for  the  WUC.  This  code  should  be  entered  by  the  following  format: 

1234  X 

NOTE:  A  space  should  be  left  between  the  first  four  numbers  and  the 
fifth  number  or  letter.  The  program  then  allows  a  description  of  the 
WUC  to  be  entered. 

If  (A(l)  through  A(14)  are  not  available,  the  program  would 
ask  that  S(l)  through  S(23)  be  entered.  If  A(l)  through  A(14)  are 
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available,  the  program  would  ask  that  A(l)  through  A(31)  be  entered. 
These  variables  should  be  entered  as  shown  on  sample  printouts,  page 
D-l  through  D'4. 

If  S(l)  through  (23)  were  entered,  the  program  would  calculate 
and  print  A(l)  through  A(14) .  If  A(l)  through  A(31)  were  entered,  the 
program  would  ask  for  any  changes  to  these  variables.  This  allows 
corrections  to  be  made  to  the  input  data.  If  corrections  are  required, 
"yes"  should  be  entered.  The  program  will  ask  for  the  number  of  changes 
the  designation  of  the  variable  (1  for  A(l),  2  for  A (2) ,  etc.),  and  the 
new  value  of  the  variable.  The  program  will  then  calculate  and  print 
the  annual  logistic  cost  data  desired. 

After  the  program  prints  out  the  annual  logistic  cost  data, 
the  program  will  ask  whether  a  sensitivity  analysis  is  desired.  If 
the  labor  or  other  rates  are  to  be  changed,  "R"  should  be  entered. 

If  the  other  variables  are  to  be  varied,  "Y1'  should  be  entered  and  if 
no  sensitivity  analysis  is  required,  enter  "N",  When  "Y"  or  "R"  are 
entered,  the  program  asks  for  the  number  of  variables  to  be  changed, 
which  variables  (1)  for  A(l),  2  for  A(2),  etc),  and  the  amount  of  change 
When  performing  sensitivity  analysis  on  rates,  the  new  rate  would  be 
entered.  When  performing  sensitivity  analysis  on  the  other  variables, 
the  percent  reduction  should  be  entered  (i.e.,  10,  20).  The  program 
then  calculates  a  new  total  annual  logistic  cost  (TALC)  based  on  the 
changes  made  to  the  input  variables.  The  program  allows  this 
sensitivity  analysis  to  be  done  as  often  as  desired. 
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If  a  sensitivity  analysis  is  not  desired,  the  program  allows  a 
new  analysis  to  be  performed  on  the  same  WUC.  This  analysis  allows 
any  variable  to  be  changed  and  new  annual  logistic  cost  data  is  printed 
out.  After  the  new  annual  logistic  cost  data  is  printed,  new  sensitivity 
analyses  may  be  performed. 

Once  the  additional  analyses  are  completed,  the  program  will 
ask  if  a  new  WUC  is  to  be  analyzed.  If  "yes”,  the  program  will  start 
from  the  beginning;  if  "no”,  the  program  will  stop. 

The  following  is  a  complete  listing  of  SCRAP: 
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10  ASCII  ANS.WUCC2)  ,DES,  FA,AWUC,F3,P0,ANAL 
20  DIMENSION  AC3  1 )  ,  I  ND<3  1  )  ,  S(23 )  ,  I  NDAC3  i  )  ,DUM<3 1 )  ,B  <3 1  > 
30  902  PRINT: "DO  YOU  WANT  COMPLETE  PRINTOUT?" 

40  READ:  PO 
50  X0DE=2 

60  PRINT;  “DO  YOU  HAVE  AC1)-AC14>?" 

70  READ:  FB 
80  PRINT:" 


wuc" 

90  READ:  WUC 

103  PR  I  NT:"  DESCRIPTION" 

110  READ:  DES 

120  1F<F3.£Q„"y"  )  GO  TO  15 
130  PRINT:"  ENTER  S«:i)-S<23>" 

14  0  REA D; S 

150  A(1):S<7)-S(1) 

160  IF  ( A( 1 ) )  131 , 102,131 

170  101  A(2)=CA<1)-S<4)-S(5D)/A(1) 

183  A(4)  =  (SC4)+SC5))/AU) 

190  GO  TO  103 
200  102  AC2>=0 
210  A (4) =3 

220  103  IF  (A<l)-3C4)-3(5>>  105,106,135 

233  135  A(3)=<S<8)-S(6)-SC2)+S(3))/CAC1)-SC4)-S<5)> 

240  GC  TO  107 

250  136  A<3)=0 

260  107  IFCSC22))  1313 ,131  A, 1313 
270  1313  ZZ=SC23)/S<22) 

282  GO  TO  1315 
290  1314  ZZ=0 

300  1315  I F(S<4)+S<5) )  113,111,113 

313  110  AC5)=CS(6)+CCZZ)*S<4)>>/CSC4>+S<5)> 

322  GO  TO  112 
333  111  AC5>=0 

340  112  A(6)=S(9)-SC8)+SC2)-SC3)-CCZZ>*S<4)) 

350  IF  <S(14)+S<1  6)+S  <18)-t-SClS>)  113,114,113 

363  113  A{ 7)  =  <S( 1 4)+S ( 1 1 ) } /CS ( 1 4)+S( I 6)+5 (18)+S<19)) 

3  73  A<9)=S<i6)AS<  145+SC  1 6)+3 < 1 8>+S U  9)  > 

3S3  A < 1 1 )=5<18)/(S(14)+S(16)+S(18)+S(19)) 

390  GO  TO  115 
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410  A C9>=a 
420  A  (  1  l  )  =  0 

430  !!5  IF  (SCl4)  +  SCim  116,117,116 

4W  116  AC8>=(S<15)+SC1U)+S<12))/<SC14>+SC11>) 

450  AC14)::SC2i)/<SC14>+SCll>) 

460  60  TO  1  IS 


470 

117 

A  ( 

0  =  2 

480 

A  C  !  4  >  - 

3 

490 

118 

I  F 

'  C  3  C  1  6) )  119,120, 

1  19 

500 

119 

A  < 

lI):(SU7)-r,(13))/S(i6) 

51.1 

»0 

TO 

18  1 

520 

1 2  0. 

A  ( 

10)  :Q 

530 

12  1 

IF 

CSC 18) )  122,1 

23, 

122 

540 

12.: 

A  < 

i2)-S< 13) /SC  18 

) 

550 

00 

TO 

124 

560 

12.3 

AC  1  2)  =0 

570 

114 

ACl3)=SC20)-SC  10 

)-SCi2) 

550 

I  PC  00. 

;-X .  N  >  GO  TO 

801 

550 

•> ;?  r 

i  *  \  i 

‘IT 

i  ,  A  <  1  > 

600 

PPL 

N  i 

8  ,  A  <  2  > 

61  a 

PR  I 

li  4 

3  ,  A  C  3  ) 

620 

821 

‘IT 

4  ,  A  (  4  ) 

-7  s  _ ; 

V  T  i 

,  .  — 

5  ,  A  <  5  > 

*' 

v;  * 

*  » » 

6,  AC  6) 

650 

~J  '  ; 

1  .li 

*  *  *7 

7 ,  A  (  7  ) 

6  o  0 

Pol 

NT 

8,  AC  8) 

670 

P2I 

NT 

9, A (9) 

68.1 

PM 

N  i 

L  0  ,  A  C 1  0  ) 

65*; 

801 

.T7 

1  1  ,  A  C 11 > 

7 o  o 

8.M 

NT 

12,  AC  12) 

71 4* 

P2 1 

NT 

13  ,  AC  13) 

720 

PRINT 

14.AC14) 

73  0 

GO 

TO 

2001 

7  40 

80  1 

PR I  NT  21  .AU) 

750 

PR I  NT 

22 ,  AC2) 

760 

PR I  NT 

23.AC3) 

770 

PR  I 

NT 

24 , AC  4) 

780 

PR  I 

NT 

25, AC5) 

792 

PHI 

NT 

26, ACS) 

832 

PRI 

NT 

2 7, AC  7) 

810 

PR  I 

f  1 

28. ACS) 

E20 

PR.  1 

NT 

29.AC9) 

830 

?Pii 

■TT 

3J, AC  10) 

840 

PRI 

NT 

31  .AC11) 
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85 3  PRINT  32,ACi2) 
830  PRINT  33 , A ( 13  ) 
870  PRINT  3 4 , A < 1 4) 
880  PRINT;  ' 


893  2001  PRINT;  "  ENTER  A<15)-A<31)' 

933  READ;  < ACK) ,K sj 5.3 1) 

510  QO  TO  SOI 

920  15  PRINT;  'ENTER  AC1)-A(31)" 

930  READ; A 

940  901  PRINTj'DO  YOU  DESIRE  TO  CHANGE  ANY  PARAMETERS?" 

550  READ;  A  NS 

560  IFCANSjEU."  if)  GO  TO  200 
973  PRINT:"HOW  MANY  CHANGES?" 

980  R  A  ui  'iR C H  NG 
99 2  PRINT  iUSl.NSCHNG 

1000  1001  FORMATCIH  WHICH  PARAKETERCS) ?“) 

1010  READ:  , J J  =  1  ,  NRCKNG) 

1023  PRI  IT:  INPUT  NEW  VALUES 

1330  DO  231  INRsl.  SiRCHNG 

1»40  201  REA  D:  <A(  I  ND<I  NR)  >  ,1  NR  =  i  ,  NRCHNG) 

1050  200  IF  (  A  ( 1 )  )  202,203.202 

1360  232  C01=A(22)/A(n 

1070  GO  TO  205 

1080  233  COl =999999.99 

1093  205  C 1 1 =A( 1 ) /AC26) 

1102  C04=l  1  ♦  9l*A<4)*A<S)*(Aa9)*U-(Aa7)*A<20)))-KAC17)*A<  18) 
l  1103*A(23))) 

1  120  C23  =  S,37*C<A(2)*Ai;3>)+A(4)*CAC5)+CA<7)*AC8))+(AC9)*A(  10)) 
i  1 3  2  &+  <  A  (  i  i)*A(12)))) 

1140  C05=CC3+CO4 

1150  C08=CA(l4)*AC4)*AC7))+(ACi  S)*A(4)*A(9)*U-A(1  7})) 

1 1 63  C39i2*A(23)*A<4)*AC9)*(CAC24>* .3  74706HCAC25)* .605274) ) 
1173  012=01  l*CCi35+C38+C39) 

1132  C23SAC1 )*<C05+C08+C0S) 

1190  C13=<(A(6)+A(13))*(9tA< 15))) /A (2 6) 

1233  Cl4-(ACi)*A<4)*<ACi i )  +  C AC  9)* A C i 7) ) )* A(2 1)*C AC27) -( AC23 ) 
1210<£*AC2&))))/AC2S) 

1220  Ci5=CA(25)*lQ4.2) /A (26) 

1230  C16=CAC30)*8)/AC26> 

1243  C17=AC31)/AC26) 

1250  IF  < A<  1 ))  30030,30231,30033 
1260  30001  C06=0 
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12  73  GO  TO  30002 
1 2 S 2  30200  C06::A<  M>*A(7)*A(4> 

1290  30002  CG7=A£ 1  6)*AC 9>*A< 4>* (1 -A C17> > 
1300  C 10-C05+COG+CO9 

1310  Cl9=fi(26>*CCi2+Ci3+Ci4+Cl 6+C15+C17) 

1320  IFCKCDE)  997,245,957 

1330  245  TALC -Cl S 

1340  597  KODc=l 

1350  C 15  =  C 1  9/A <2 6) 

1360  C02=A(  D/AC222 

1370  IF<A'1AL.£Q«“y  )  GO  TO  157 

i3S0  IF<ANAL.EQ.*V  )  GO  TO  157 

L3S3  GO  TO  159 

1403  157  PRINT  152,  Cl  9 

1413  X3U=((TALC-C19)/TALC)*103 

1420  X3UTALC-C19 

1430  PRINT  199.X31 

1440  PRINT  19S.X30 

1450  PRINT:" 


1460  00  173  J2  =  l  ,31 
1470  173  AC 02  ) =  DUMC J2 ) 
1480  158  F0RMATC1H 


- TALC= . ",  FI  4.25 

1490  199  FORMATUH 


_ - AMT  OF  REDUC=" .F14.25 

1530  196  F OR MAT C 1H  ," 


- %  OF  SAVI  NG=."  ,  FI 4. 2 5 

1513  GO  TO  171 

1520  159  PRINT  75,WUC 

1  530  IFCPO.EQ."  N  )  GO  TO  35 

1540  PRINT  500, C01 

1550  PRINT  550, C02 

1563  PR 3  NTs  " 


1573  PRINT  700,003 
1583  PRINT  803, CG 4 
1593  PRINT  1303,005 
1633  PHI  NT  1075, C0S 
1610  PRINT  107S.C07 
1623  PRINT  2200, C08 
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163^  PRINT  3203, C09 
1640  PRINT  1077, C10 
1653  PRINT} 

1663  PRINT  630.C11 
1670  PRINT  4203, C12 
1652  PRINT  5030, C13 
1650  PRINT  6333 ,C 1 4 
1730  PRINT  7203. Cl  5 
1712  PRINT  8232 , Cl  6 
1722  PRINT  5222 ,C  1 7 
1732  PRINT  H300, C18 
1742  PRINT: 

1752  PRINT  1074, C20 
1762  PRINT  12220, C19 
1772  PRINT  12500 
1782  GO  TO  122 
1 752  35  PRI NT  36.C01 
1820  PRINT  37.C02 
1810  PRINT:  „ 

182 15  PRINT  35.C03 
1832  PRINT  43.C04 
1842  PRINT  4 1 ,  C2  5 
1853  PRINT  1278, C36 
1860  PRINT  1 379, C07 
1873  PRINT  42 , C08 
1882  PRI NT  43.C09 
1853  PRINT  1282, Cl 0 

1932  PRI NTs 

1913  PRI  NT  38.C11 
1 S23  PRINT  44,012 

1933  PRINT  45.C13 
1940  PRINT  46, Cl  4 
1 952  PRI NT  47, Cl  5 
1963  PRI NT  48, Cl  6 
1970  PRINT  49,017 
1982  PRINT  52,  Cl  8 
1992  PRINT: 

2300  PRI  NT  1073,020 
2313  PRINT  50  ,  C 1  9 
2020  PRINT  51 
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2332 


2343 

2350 

20  63 
2073 
2383 
2393 
2133 

21  13 
2123 
2133 
2140 
2153 
2163 
2173 


2  ISO 
2193 
2233 
2213 
2223 
2233 
2243 
2253 

22  S3 
2273 
2283 
2293 
2333 
2313 
2323 
2330 

23  40 
2353 
23  S3 
2373 
2383 


23  90 
2433 
2413 


1  FORMAT  OH  . 

TOTAL  FAILURES  =AC15  = . . . “,F12.2) 

2  FORMATUH  ON  AIRCRAFT  REPAIR  RATE:A<2>:  •  ••• . * . ,“,F12.2) 

3  FOR  ;*1A  T  ( i  H  #*0»  AIRCRAFT  REPAIR  LABOR  STA  M0ARD=AC3> - . „ ,  F12  .2  ) 

4  FORMATUH  DETECT .IS G.R EMV.REP  RATE=AC4}: . .. . „,FI2.2) 

5  FORMATUH  DETECT  ,  IS  O.R  EMV.R  EP  LABOR  STA  MDARD=A(5>  .FI2.2) 

6  FORMATUH  NGN- FA  I  LURE  MMH  3COM  EQUIP)  =  AC  6)  = . . F12.2) 

7  FORMATUH  ."SHOP  REPAIR  RATEC  RTS)  :A<  7)  : . 3.F12*2> 

5  FORMATUH  .“SHOP  REPAIR  LA30R  STANDARD: A (8)  :  . . .F12.2) 

S  FORMATUH  ."SHOP  NRTS  RATE:A( 9)  : . 4F22.2) 

13  FORMATUH  ."SHOP  NRT5  LABOR  STA NDARD=A<  10)  = . . . F12.5 

11  FORMATUH  .“SHOP  CONDEMNATION  RAI£:AU1)  = . . . ",Fi2.i 

12  FORMATUH  ."SHOP  CONDEMNATI  ON  LABOR  STA  MDARD=AU2>  : . ",Fi2.2 

13  FORMATUH  .“SHOP  NON-FAILURE  MMK'S:AU3>: . . . ",Fl2.1 

14  FORMATUH  .'BASE  MATERIAL  COST  STANDARD  FOR  REPAI  R=A(1 4)  =  "  .  F 12  .4 

533  FORMATUH  , 


553  FORMATUH  .“FAILURE  RATE:.....,........... . 

633  FORMATUH  NUMBER  OF  FAI  i»URES/U  NIT/YEAR: . . ”, 

733  FORMAT  (Hi  ,“bA3E  LABOR  CCST/FAlLUH£s . 

833  FORMATUH  ."DEPOT  LABOR  COBT/FAI  LURE: . . 

1333  FORMATUH  .“LABOR  COST  /  FAILURE: . 

1374  FORMATUH  ."TOTAL  COST  OF  FAILURES . 

1075  FORMATUH  ."BABE  MATERIAL  COST  /  FAILURE . „ . 

1376  FORMATUH  ."DEPOT  MATERIAL  COST  /  FAILURE . 

1077  FORMATUH  , "TOTAL  COST  /  FAILURE . ...... . .. 

2333  FORMATUH  **  MATERIAL  COST  /  FAILURE:...,..... . 

3333  FORMATUH  ,  TRA  NSPQRTATI  ON  AND  PACKING  COST  /  FAILURE:" 

4320  FORMATUH  ."COST  OF  FAILURES  /  UNIT  /  YEAR: . “ 

5330  FORMATUH  ."OTHER  MA I  N'T  ACT  COST  /  UNIT  /  YEAR: . “ 

6333  FORMATUH  ."COST  OF  REPLACI  M6  COMO  I TEWS/U NI  T/YR  = . . 

7033  FORMATUH  ."SUPPLY  MANAGEMENT  RECURRING  COST/UNIT/YR: . 
8333  FORMATUH  TECHNICAL  DATA  MANAGEMENT  COST/UNIT/YR:..." 
9030  FORMATUH  ."OTHER  SIGNIFICANT  RECUR  COST/UNIT/YR:..... 

10333  FORMATUH  ."TOTAL  RECURRING  ANNUAL  LOGISTIC  COST: . 

12533  F0RMATUH+,$2X,“ _ "> 

11330  FORMATUH  ,  RECUR  ANNUAL  LOGISTIC  COST/UNIT/YR: . 

21  FORMATUH 


FI  2. 2) 
FIB.  13) 
F12.2) 
F12  .2) 
F12.2) 
,F12.2: 
.F12.2: 
.F12.2) 
.F12.2) 
f  12  .2) 
,F12.; 
.F12.2: 
,  F12.2 
,  F12  .2' 
,  F12.2' 
.F12.2 
.  F12.2 
.  F12.2 
,  F12 .. 

"  , FI 2  . 


22 

23 

24 


A(  3 1  )  :"  ,  FI 2  .2 ) 
FORMATUH  ,“a<32):"  ,Fi2  .2) 
FORMATUH  , " A( 33  )  ="  ,  F12  .2 ) 
FORMATUH  .  A(24>  s"  .  Fl 2  .2) 
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2423  25  FORMAT (1H  A(  ,55)  s’*  ,  Fl2  .2  ) 
243.J  26  FORMATOH  A<36)  =“  ,  F12  .2) 
2440  27  FOR MAT < 1 H  ,“h(07)=“ , F22  .2> 
2453  28  FORMATOH  , “  A<0g5  ="  , F12  .2 ) 
2460  29  FORMAT (IK  ,“aC09>=" , F12 .2> 
2470  30  FOSMAK  iH  A(  13)  =“  ,  Ft2  .2  ) 
2480  31  FORMATOH  ."Ad  1)  s“  ,  F12  .2) 
2490  32  FORMATOH  ,* A{ 125 s" , F12  .2) 
253S  33  FORMATOH  , “ A< 13 ) =" , F12  .2 > 
2510  34  FOR MAT ( IH  , “ AC  1 4)  =  “ , FI 2  .2 ) 
2520  36  FORMAT ( IH 

Cais",Fl2.2> 

2533  37  FORMAT < 1 H  , "C02=" , F 1 S. 1 3) 

2540  38  FORMATOH  ,  "c 1  1  =“  ,  FI2  .2 ) 

2550  39  FORMATOH  , " C33=“  ,  Fi2  .2) 

2560  40  FORMATOH  ,“C04="  ,  F12  .2) 

2570  41  FOR  MAT  OH  ,"C05=" , F12 .2) 

2580  42  FORMATOH  ,“C08=“  ,  F12  .2) 

2592  43  FORMATOH  ,*CBS="  ,  F12  .2) 

2600  44  FORMATOH  ,  *C12  =  "  ,  F12  .2) 

2610  45  FORMATOH  ,“C1 3  =  "  ,  F12  .2) 

2620  46  FORMATOH  .“Cl  4;"  ,  F12  ,2) 

2630  47  FORMATOH  ,"C15=  ,F12.2) 

2643  48  FORMATOH  ,~Cl  6^“  ,  Fl2  .2) 

2653  4$  FORMATOH  ,017=  ,F12.2) 

2660  53  FORMATOH  .  "C 1  9s"  ,  F 12  .2 ) 

2672  51  FCRMATOH+,4X,"._ _ > 

2680  52  FORMATOH  ,"c£s=  ,F12.2> 

26S2  1073  FORMAT <1H  ,  C20  =  ,Fi2.2) 
2700  1278  FORMATOH  , " 006="  ,  F12  .2 ) 
2710  1079  FORMATOH  , " C2  7s"  , F 12  .2 ) 
2720  1380  FORMATOH  ,  "C10="  ,  F12  .2) 
2730  75  FORMATOH 


WUC=  ,A4.A4) 

2743  100  CONTINUE 
2753  171  PRINT:” 


SENSITIVITY  ANALYSIS— ENTER  R  FOR  RATES, 
2762<£Y  FOR  OTHERS.  N  FOR  NONE" 

2  7  70  READ:  ANAL 
2783  DO  154  J2  =  l,3i 
2793  154  DUM<  J2)=A<J2> 
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2803  1F<A NAL.EQ.  Y  )  GO  TO  152 
2310  1  F< A  NAL.EQ  ,“R“  >  GO  TO  152 
2820  PRI NT; 


FURTHER  ANALYSIS?" 


2830  READ;  FA 
2840  KODZ=0 

2850  IFCFA.EQ/Y")  GO  TO  921 
2860  PRI NT;" 


MEW  WUC?" 

2870  READjAWUC 

2880  IFCAWUC.EQ.'V)  GO  TO  902 
2890  GO  TO  2335 

2900  152  PRI  NT:  "HOW  MANY  A 'S  ?" 

2910  READ:  NOH NG 
2922  PRINT  150  ,  NCHNG 

2933  153  FORMATUH  ."WHICH  ",I2,“  PARAMETERS)?  ) 

2940  READ:  <INDA(J)4J=1  , NCHNG) 

2950  IF(ANAL.EG."y  )  GO  TO  236 
2960  IF(ANAL.F.Q,"r"  )  GO  Tu  235 
2973  235  PRI NT;" ENTER  NEW  RATES" 

2983  GO  TO  333 

2990  236  PRINT:  "ENTER  7.  REDUCTION,  I.E.  10  20  ... 

3000  333  IF^ANALjEQ/y"'/  30  TO  334 
33  1  £  I  F(  A  NAL.EQ.  R"  )  GO  TO  335 
3020  334  READ:  (B<  I  NRA>  ,  I  NRA  =  l  ,  NCHNG) 

3330  DO  156  Jl=l, NCHNG 

3342  1 53  A(I NDA( J1 ))=A<I NDA( J1 ))-((3CJl )/100)*A<I NDACJl ))) 
3050  GO  TO  203 

3360  335  READ;  <A<I NDACI NRA) > ,1 NRA=1 ,  NCHNG) 

3078  GO  TO  200 
3080  2333  STOP;  END 


C-ll 


i 


TR“Sfi4Ea/»i4-73-121 


APPENDIX  0 


The  following  are  sample  runs  of  the  Computer  Program  SCRAP: 


DO  YOU  WANT  COMPLETE  PRINTOUT? 
=  Y 

DO  YOU  HAVE  AC1)-A<14>? 

=  N 


wuc 

=  2300  0 
DESCRIPTION 
=  ENOI  NE 
ENTER  SC  1 >-S<23) 

=  00  612.5  85,5  333  7948.4  462  17872.6  70821.4  0  0  0  0  2  12.1 
=  85  52  0  3  0  374495  0  0 


TOTAL  FA  I  LURES -AC  i  )  = . . ,, 

ON  AIRCRAFT  REPAIR  RATE=AC2) = . 

ON  AIRCRAFT  REPAIR  LAUGH  STA NDARD=A(3)  = . 

DETECT,  I  SO.  REM  V,  REP  RATE  =  AC4>= . . 

DETECT, ISO, REMV  REP  LAuOR  STA NDARD=A(5) = . 

NON-FAILURE  V,MH  SCON  EQUIP)  =  A(  6)  =  .  .  . . 

SHOP  REPAIR  RAT£CRTS)sAC7)s  . . .  . . 

SHOP  REPAIR  LAS OR  STA NDARD: A<8> = . 

SHOP  NRTS  R ATE=A< 9 )  =  ..... . . . 

SHOP  NRTS  LABOR  STA  NDARD=A(  1  0)  =  . . . 

SHOP  CONDEMNATION  RATE=ACll)= . 

SHOP  CONDEMNATION  LABOR  STA NDARD=A C 1 2)  = . 

SHOP  NON-FAILURE  WW'S=A(i5>= . . 

BASE  MATERIAL  COST  STANDARD  FOR  REPAI R =A C  1  4)  = 
ENTER  A(15)-AC31) 

=  0  11654,58  0  0  1872.14  0  0  10053i  8050  .59 


4  62 .03 
0.09 
242.22 
0.91 
18.99 
52336 .30 
0.02 
6.05 
0  .98 
0.61 
0. 

0. 

0. 

187247.50 


.41  155$0658®»G>®@ 


=  A 

"A"  IS  AN  I LLEGAL  INPUT  CHAR.--PLS.  RETYPE  ALL  INPUT 
=  3  11654.53  0  0  1872.14  0  0  100531  6050  .59  .41  686  155300  .02 
=  9553  5084  0 

DO  Y DU  DESIRE  TO  CHANGE  ANY  PARAMETERS? 

=  U 
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WUC =23000 


MTbr 

FAILURE  RATE: 


217.63 

0.00459560 


BASE  LABOR  COST /FA  I  LURE: . . . 

DEPOT  LABOR  COST/FAILURE: . . . 

LABOR  COST  /  FAILURE: . 

BASE  MATERIAL  COST  /  FAILURE., . . 

DEPOT  MATERIAL  COST  /  FAILURE . . 

MATERIAL  COST  /  FAILURE:..... . 

TRANSPORTATION  AND  PACKING  COST  /  FAILURE: 
TOTAL  COST  /  FAILURE . 


381  .16 
i 9733  .46 
23114.62 
3899.24 
10314.54 
14213.78 
5024.96 
3S353.36 


NUMBER  OF  FAI LURES / UNI T/ YEAR: . ............ 

COST  OF  FAILURES  /  UNIT  /  YEAR:... . 

OTHER  MAI  NT  ACT  COST  /  UNIT  /  YEAR: . 

COST  OF  REPLACING  COM)  ITE«S/UNIT/YR= . 

SUPPLY  MANAGEMENT  RECURRING  COST/UNIT/YR:. 
TECHNICAL  DATA  MANAGEMENT  COST/UNIT/YR:... 
OTHER  SIGNIFICANT  RECUR  COST/UNI  T/YR  = .... . 
RECUR  ANNUAL  LOGISTIC  COST/UNIT/YR:....... 


3.67 
26503  .28 
686.63 
0. 

1451 ,05 
59.29 

0. 

28700.25 


TOTAL  COST  OF  FAILURES..., .  S81B1250.25 

TOTAL  RECURRING  ANNUAL  LOGISTIC  COST:  ...  .  .  Jt968g,37J_i20. 
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SENSITIVITY  ANALYSIS— ENTER  R  FOR  R«ES.Y  ROB  OTHERS , N  FOR  NONE 
=  Y 

HOW  MANY  AS? 

WHICH  1  PARAMETER^)? 

ENTER  2  REDUCTION,  l.E.  10  20  ... 

=  10 

. .  . .  17870246.25 

- AMT  OF  REDUC:  1818125.25 


——7.  OF  SAVINQ=. 


sensitivity  analysis-enter  r  for  Rates.y  for  others, n  for  none 
:  R 

HOW  MANY  A  S? 

WHICH  2  PARAMETERCS) 7 
:  2,4 

enter  new  rates 

:  .1  .9 


.  —  TALC: .  19577838.00 


..—AMT  OF  REOUC:  110533.50 


— — 1  OF  SAVING: 


0.56 
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NEW  WUC? 

=  Y 

DO  YOU  want  complete  printout? 

=  N 

DO  YOU  HAVE  A(1)-AU4>? 

=  Y 


WUC 

=  2361  5 
DESCRIPTION 
=  MAI  N  FUEL  CONTROL 
ENTER  AC  1) -A (3  1) 

=  192  .85  3.08  .15  2  7.07  512  .8  1  .03  .2  1  9©0  0  0  1068.5  0 
=00  58.4  0  1  100531  49.5  .59  .41  686  6200  .04  600  114  0 
DO  YOU  DESIRE  TO  CHANGE  ANY  PARAMETERS? 

=  N 


WUC  =23  6!  B 


C0  1  =  523.63 

C02  =  0.00190986 


C03  = 

64.02 

C  34: 

20  .87 

C35  = 

84.88 

C36: 

128.22 

C07: 

64.12 

C38= 

192  .32 

C29  = 

1  .39 

C10  = 

278.60 

Cl  1  = 

0  .28 

C 1 2  = 

77.98 

C  1 3  : 

6.72 

Cl  4r 

0  . 

C 1  5  = 

91  .14 

Cl  6= 

1  .33 

Cl  7: 

0  . 

C 1  8= 

177.16 

C20  = 

53491  ,05 

C 1  9  = 

121531  .35 

2136.75 
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SENSITIVITY  ANALYSIS  — ENTER  R  FOR  RATES, Y  FOR  OTHERS ,  N  FOR  NONE 
=  Y 

H  OW  MA  NY  A  '$  ? 

:  1 

WHICH  i  PARANETERCS)? 

=  1 

ENTER  1  REDUCTION,  I  .E.  12  22  ... 


:  50 

- TALC: . ..  94785.52 

- AMT  OF  REDUC:  26745.53 

- 7.  OF  SAVING:.  22.01 
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SENSITIVITY  ANALYSIS  — ENTER  R  FOR  RATES, Y  FOR  OTHERS, N  FOR  NONE 
=  N 


FURTHER  ANALYSIS? 

=  Y 

DO  YOU  DESIRE  TO  CHANGE  ANY  PARAMETERS? 
=  Y 

HOW  iMANY  CHANGES? 

=  l 

WHICH  1  PARAMETER(S) ? 

=  29 

INPUT  NEW  VALUES 
=  300 


W’JC  =23618 

C01=  523.60 

C02"  0.00190986. 


C03=  64.02 
C04=  20.87 
C05  =  84.88 
C06=  128.22 
C07:  64.10 
C08  =  192.32 
C09=  1 .39 
C10=  278.60 


Cl  1  = 
Cl?.: 
C 13: 
C14: 
C15: 
Cl  6: 
Cl  7  = 
Cl  8= 


C20:  53491.05 

Cl  9:  90271  .05 


0  *28 
77.98 
6.72 

0. 

45.57 
1  .33 

0. 

131 .59 


SENSITIVITY  ANALYSIS— ENTER  R  FOR  RATES, Y  FOR  OTHERS ,  N  FOR  NONE 
=  N 


FURTHER  ANA LYSIS 7 
:  N 

NEW  WUC? 

-  N 


PROGRAM  STOP  at  3080 
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APPENDIX  E 

Program  SORTSUM  is  written  in  BASIC  computer  language.  The 
program  may  be  accessed  from  any  CREATE  terminal  by  using  the  follow¬ 
ing  program  nomenclature: 

OLD  CRYSTAL/SORTSUM,  R 

Once  the  program  is  accessed,  the  command  ‘'RUN"  is  given  and  the 
program  will  give  instructions,  if  desired. 

The.  following  is  a  detailed  listing  of  SORTSUM: 
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LIST  SORTS  UK 

003 I  d  OIK  AC200) ,B  $(200) 

00S20  PR  I  NT  "DO  YOU  WANT  INSTRUCTIONS  ; 
30030  INPUT 
00340  PRINT 


00050  IF  CS="YES"  THEN  10210 
300 S3  DS="RANK" 

£0070  E$=*WUC“ 

0O0S3  FS^CUM  SUM 
£0090  G$=" CUM  7." 

30530  READ  N.Q$ 

00113  PRINT  INCREASING  RANK-ENTER  i 
03120  INPUT  R 
00133  PRINT 


-DECREASING  RANK  ENTER  0" 


03140  IF  R  =  0  THEN  170 
00150  K=1 
•30160  GO  TO  180 


00170  K=0 


33183  FOR  1  =  1  TO  N 


£3190  READ  BSCI) 

30233  NEXi  I 
00210  FORI = i TON 
30223  READACI) 

04230  NEXT  l 

30240  PRINT  USING  250 , D#£ r E$ ,Q$ . F$. G% 
03253s  ELLL  CCC  CCCCCCCC 


CCCCCCC 


032  63  PRINT 


03273  L=N-1 


03283  11=1 

30290  FOR  1=1  TO  L 

00300  IF  K  =  1  THEN  330 

00310  IF  A< 1+ 1 ) <=AC I)  GO  TO  410 

03323  GO  TO  340 

£0330  IF  AC  1+ 1 ) >=AC I)  GO  TO  410 
£3340  A1=ACI+1> 

03350  ACI+1>=ACI> 

333 S3  AC  I ) =A 1 
003  73  T$=BSCI+1) 

30380  B  SC  1+ 1 )  =  B$C I) 

00390  BSCI)  =  T$ 

00403  11=1 


'EEEEEEEE 
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£0413  NEXT  I 

03420  IF  IU1  GOTO  450 

00430  L=I1-1 

£3440  GO  TO  280 

£0450  S=C 

00460  FOR  !:]  TO  N 
30470  S=S+A(I) 

33480  NEXT  I 
03490  S1=0 
00503  FOR  1=1  TO  N 
03510  S 1 =S 1+A ( I ) 

03523  Pl=(Si/S)*103 

32533  PRINT  USING  540 ,1  ,8$ (I )  ,A (I)  .S  1  ,P1 

00540:####  'CCCCC  ########.##  ########«##  ######.## 

00553  NEXT  I 
13030  GO  TO  J 0390 

13013  PRINT  ENTER'  DATA  STARTING  LINE  600;  ENTER  NUMBER  OF  WUC  'S.WHAT 
10320  PRINT  "YOU  WISH  TO  HA  NX  ,  WUC 's,  AND  DATA  TO  BE  RANKED  AS  FOLLOWS 
13033  PRINT  "  600  DATA  2 ,  FA  I  LURES  ,  '1234A  'l23  4B  \  12  ,  l" 

13043  PRINT  "  NOTE:  USE  A  QUOTATION  MARK  INSTEAD  OF  THE  APOSTROPHE" 
10050  PRINT  "SHOWN  WHEN  ENTERING  AN  ALPHANUMERIC  BEGINNING  WITH  A* 
10360  PRINT  "  NUMBER, SUCH  AS  A  WORK  UNIT  CODE. 

13070  PRINT  " 


13083  GO  TO  60 
13093  END 


READY 
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*RUN 


DO  YOU  WANT  INSTRUCTIONS  ?N0 


INCREASING  RANK-ENTER  1— DECREASING  RANK  ENTER  0 
70 


RANK 

WUC 

TALC 

CUM  SUM 

CUM  1 

1 

23000 

19688371 .25 

19638371.25 

98.14 

2 

23120 

216870.00 

19905241.25 

99.23 

3 

236  IB 

133451 .23 

20038692.25 

99.89 

4 

23313 

11531.00 

20050223.25 

99.95 

5 

23315 

7973.23 

20058196.25 

99.99 

6 

23420 

1763.89 

20059960.00 

100.00 

7 

2393A 

672.20 

20060632.00 

100.00 

*RUN 

DO  YOU  WANT  INSTRUCTIONS  ?N 


INCREASING  RANK-ENTER  ! --DECREASING  RANK  ENTER  0 
?0 


RANK 

wuc 

FAILURES 

CUM  SUM 

CUM  7. 

1 

23000 

462.00 

462.00 

33.53 

2 

23420 

289.00 

751  .00 

54.50 

3 

2361B 

252.00 

1003.00 

72.79 

4 

23120 

192.00 

1195.00 

86.72 

« 

23313 

95.08 

1293.00 

93.85 

6 

23315 

77.00 

1370.00 

99.42 

7 

2393  A 

8.00 

1378.00 

100.00 
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